(*$A+,D+*)
program TreeCall(Output);

const	MAXDEPTH = 5;

type	Depth = 1..MAXDEPTH;

var	CallDepth :  Depth;
	NodeNumber :  integer;

procedure Branch(CallDepth :  Depth);
   begin
   write(NodeNumber : 4, CallDepth : 2);
   if NodeNumber mod 4 = 0 then writeln;
   NodeNumber := NodeNumber + 1;
   if CallDepth < MAXDEPTH then
      begin
      Branch(CallDepth + 1);
      Branch(CallDepth + 1);
      end;
   end;

begin
CallDepth := 1;
NodeNumber := 1;
Branch(CallDepth);
writeln;
end.